OECIMFiL 1=1^0 XI OOOES 


(=■01^ r’xt4<> ftrjo ^oi_ixc> 


CODE 

CHARACTER 

CODE CHARACTER 

CODE 

cmrrrcter I 

128 

CTRL/SHFT/P 

169 SPACE 

193 

A - 


t leader> 

161 ► 

194 

B 1 

129 

CTRL/R 

162 '■ 

195 

C 1 

130 

ctrl/b 

163 # 

196 

D 1 

131 

CTRU/C 

164 S 

197 

E 

132 

CTRL/D 

165 K 

193 

F 

133 

CTRL/E 

166 & 

199 

G 

134 

CTRL/F 

167 " 

200 

h 

133 

CTRL/G CEELL> 

16 8 >: 

291 

I 

136 

CTRL/H 

169 > 

202 

J : 

137 

CTRL/I 

170 • 

203 


13B 

LIME FEED 

171 ♦ 

204 

L ' 

139 

CTRL/K 

172 . 

205 

M 

140 

CTRL/L 

173 " 

206 

N 

141 

CARRIAGE RETLrPN 

174 . 

207 

0 

142 

CTRL/N 

175 / 

208 

P ' 

143 

CTRL/0 

176 0 

209 

Q 

144 

CTRL/P 

177 1 

210 

R 

143 

CTRL/0 

173 2 

211 

S 

146 

CTRL/R 

179 3 

212 

T 

147 

CTRL/S 

180 4 

213 

U 

148 

CTRL/T 

101 5 

214 

1 

149 

CTRL/U 

182 6 

215 

W 1 

150 

CTRL/V 

183 7 

216 

X 

151 

CTRL/W 

184 8 

217 

Y 1 

152 

CTRL/X 

185 9 

210 


153 

CTRL/V 

186 : 

219 

c 

154 

CTRL/Z 

187 4 

220 

\ 

155 

CTRL/SHFT/K 

ISO < 

221 

] 

156 

CTRL/SHFT/L 

189 ♦ 

222 


157 

ctrl/shft/m 

190 > 

223 

4 

158 

CiRL/SHFT/H 

191 7 

253 

ALT MODE 

159 

CTRL/SHFT/0 

192 0 

255 

RUBOUf 


FQUT<141> NtLL OUTPUT ft RETURJ^,''L1NE FEEOi FQUTC135 NILL 
OUTPUT ft CflRRtFiGE RETURN Or^LV. CODE 144 CCTRL/P> IS 
PS/e FOCftL'S ©RERK CHRRRCTER. 2^4 THROUGH 25C ftRE 
lower-C ft^E LETTERS ON SOME TEPMINRLS, NRHV TEPMir-fRLS 
USE EHIFT/'K. /U RND /M FOR "C^h "V. RNT> ^T. 


FOCRLh pop, dec RNt> DECTftPE RRE TRROEnflRKS OF DIGITAL 
EQUIPhENT CORPORRTIOM- MRVNRRO, MRSSRCHUEETTE. 

TEKTRONIX IS ft TRROENRRK OF TEKTROHIK INCORPORATED. 
SEfiVEKTONr OREGON. 

ONE I ftND THE RED STRRBURST SVNEOL RRE TRRDEMRRKS OF THE 
OREGON MUSEUM OF SCIEMCE RNO INIHJSTRV. PORTLRMD, OREGON. 

©OMSI 1971. MRTEPIRL ON THIS CRRD COPYRIGHTED 1971 GV 
THE OREGON MUSEUM OF SCI. ^ IHP. RLL RIGHTS RESERVED. 




ERROR COOES VRLID OHLV FOR 6/1/71 VERSION OF FOCftL 


cooe; i or j 

'?O0. 00 iIRNURL STfiRT FROM CONSOLE 

701 09 BRERK F^Cltl KEVBORRD VIR ''CTRL/P' 

701. 40 BRO LIME NUMBER 

?01. Si GROUP N!iri8ER LRRGER THRN 31 

701. ; 3 EERO IS ILLEGRL Llr-^E NUMBER 

702.32 "DO" REFERENCED NON-EXISTENT GROUP 

702. SE " DO" REFERENCED NON-EXISTENT L1N£ 

703.03 NON-EXISTENT LINE AFTER "GOTO" OR "IF" 

703. 20 ILLEGAL COMMRHp 

704.39 BRD VARIABLE IN "FOR" OR "SET" COMMWtD 

704.32 EXCESS tlGHT TERMINRTORS 

704,60 ILLEGAL TERMINATOR IN 'FOP" OR "SET" COMMAND 

704. :3 MISSING ARGUMENT IN DISPLAY FUNCTION 

703.40 0RD RRG'JliENT IN "MODIFY" COMMAND 

706. 06 ILLEGAL LISE OF R FUNCTION OR NUMBER 

705. 34 TOO MftNV VFLRIRBLES 

707. 30 HO OPERATOR BEFORE PARENTHESIS 

707. ;9 FUfJiCTIOfJ FiRGUMEHT MISSING 

707. j 6 ILLEGAL FUNCTIOtJ OR DOUBLE OPERATORS 

70B. 47 ENCLOSL^ES DO NOT MATCH 

'^09. 11 BRD RRQ'.ff1ENT IN " EPRSE" COMMRNO 

710, ;5 STORAGE FILLED BY TEXT 

711. 33 irJPUT BilFFER OVERFLOW 

71S. 20 BAD RESTORE COMMAND 

713- ;1 ATTEMPT TO WRITE PAST END-OF-FILE 
720. 34 LOGftRITWl OF ZERO REOUESTED 

722. 23 NO OUTPUT FILE TO RESTORE 

722. 51 BAD FILES "OPEN" COMMAND 

723. 03 DATA FILE NOT FOUND 

723 13 NO input file TO RESTORE 

723. 3e TOO MAH? DIGITS IN NUMBER 

723. 3^ PUSHDOWfJ OVERFLOW; PROGRAM TOO LONG 

724. 60 TWO’ PERiOOS IN FILE NftME OR HO NAME 

725. 37 SAD DEVICE OR 2 PAGE HANDLER 

726. IS BAD LIBRARY COMMAND 

726, SB NO PROGPFin NAMED BY " SAVE' COPfMftND 

726. EXPOf^ENT TOO LARGE OR NEGATIVE 

?27 10 PROGRAM not FOUND 

727, 14 "LIBRARY CALL" FROM NON-D I RECTORY DEVICE 

720, OG ' LlCRftftV LIST" OF NON-DIRECTORY E>EVICE 
72S. 73 DIVISION BY ZERO 

729. 53 FILE ALPEADV DELETED 

729. 6B DEVICE ERROR: WRITE LOCK OR PARITY 
729. 91 CAwrJOT OPEN OUTPUT FILE 

730 05 IMftGINAFV SQUARE ROOTS REOUIRED 
731. <7 UNAVAlLftBLE COMMAND OR FUNCTION 
7 ATTEMPT TO READ PAST EHD-OF-FILE ( IW^UT IS 

SWITCHE^ TO terminal AND PROGRAM COHTINUESJ 

TVPESET OFJ CErTT"ROr4 r —d_iSd_ MATRIX PRINTER 

ADDITIOmL COPIES OF SUMMARV CARD AVAILABLE FROM: 

OnSX SOFTWARE DEVELOPMENT GROUP 
4013 SW CANYON ROAD 
PORTLAND. OREGON 97221 

PRINTED IN U. S, A 7/28/71 



SUM 


omsi 

PS/8 FOCAL 

MARY CARD 


Ei_srTE:r-4XFAF^7/ ooMMt=irJO;=p 

*ASK <K>.ACCEPT VALUE OF X FROM IF^PUT DEVICE 

•comment .-. IGNORE REST OF LINE 

•DO tLlME OR GROUP riUMBER 3.SUBROUT I r^E CALL 

•ERASE. .. EEPO VARIABLES 

•ERASE <LINE OR GPOUP rJUfJEER^ . DELETE LINE OR GROUP 

♦ERASE ALL . , . DELETE ENTIRE INDIRECT PROGRAM 

♦FOR X-ElC , E2 C2. COMMAND REPEATED CE3-El>r"E2*l TIMES 

•GO I LI 3.START PROGRAM EXECUTION AT LINE LI 

•IF CE1>L1C. L2, L3I.©RANCH ON SIGN OF El 

♦MODIFY <:l1>.. ..EDIT LINE LI 

•QUIT. . . .STOP EXECUTION 

•RETURN.TERMINATE 'DO" OR ' GOSUB" SUBROUTINE 

•SET X-<Ei> .... .ASSIGN VALUE El TO VARIABLE 

♦ TYPE CNUMBERS. £l. “TEXT'. I, ft. * OR K] . . OUTPUT 

♦WRITE tLlNE OR OOUP NUMBER]..LIST PROGRAM 


LIEsRFAR't" l=ll-4C:' !=■ I l_E COMMFHI^OS 

^LTORARV call I devICE; KPROGRHM>.LOAD PROGRAM 

•LIBRARY DELETE C DEV ICE; KPPOGRHM> .... UNSAVE PROGRAM 
•LIBRARY GOSUB C0£VICE:KPROGRHM> CGI] SUBROUTINE CALL 
•library LIST CDEVICE; XFIRST LISTED FILE] .... CATALOG 

• LIBRARY RUN [DEVICE: ]CPROGRRM> [LI].. CHAIN 

• LIBRARY SAVE [DEVICE: ]<PROGRAM>. SAVE PROGRAM 

•LIBRARY EXIT.. RETURN TO PS/B MONITOR 

• OPEN INPUT r DEVICE; 3C FI LEX, ECHO] .... PREPARE TO READ 

• OPEN OUTPUT [DEVICE; :C FI LEX, ECHO! ..PREPARE TO WRITE 
•OPEN RESTORE lNPyTt,ECHO] .... RESUME INPUT FROM FILE 
•OPEN RESTORE OUlTUTC, ECHO ] ..... RESUME OUTPUT TO FILE 
♦OUTPUT CLOSE .... OUTPUTS BUFFER; CLOSES OUTPUT FILE 

— INPUT-, ECHO. ECHO INPUT ONTO OUTPUT DEVICE 

— OUTPUT-. ECHO. . echo OUTPUT ONTO TERMINAL 

. FC fi . FD APE the program & DATA FILE NAME EXTENStOtJS. 


O ENCLOSE REOUIRED TERMS 1 1 ENCLOSE OPTIOr^AL TERMS 
ONE LETTER ABBREVilAT IONS MAY EE USED AS COMMAND WORDS. 
X REPRESENTS A VARIABLE. El. E2 AND E3 ARE ARITHMETIC 

expressions. LI, La and l3 are line numbers, Gl is a 

LINE OR GROUP rJUf^ER- L1-L3 AND Gl CArJ BE REPLACED BY 

arithmetic expressions which do not begin with an "A". 
























svneoL-s f^imo cwi^iRRcreRS 


RUISICXIOMS 


RROORRMM 1IMQ CXRMRL.SS 


EXPONENT^ MULTIPLY. DIVIDE. f^pO. SUBTRACT 

c) c 3 o.. enclosures for arithmetic expressions 


• 'TYPE *' OR 'ASK •' OUTPUTS A RETUPNXLINE FEED 

• 'TYPE P' OR 'ASK #' OUTPUTS A RETURN ONLY 
- 'TYPE -STRING"' OR 'ASK "STRING-' OUTPUTS 'STRING' 

'TYPE :26. TABS TO LOCATION 2C flM> TYPES 

, ■ .' TYPE #' OUTPUTS SYMBOL TABLE 

y, 'TYPE 02' FORMATS OUTPUT (5 DIGITS; XXX. VV> 

o' ..'GO ?' TRACES PROGRAM UNTIL NEXT '7' 

E . POUERS-OF-TEN NOTATION <S. ^E+OS EOUALS 9300000- > 
. ..SEPARATES EXPRESSIONS IN 'TYPE' AND 'ASK' COMMANDS 
i INSERTED BETHEEN COMMANDS; E. G. 'DO X;TVP€ V/7. 2' 

CTRL/2 .END-OF-FILE CHARACTER 

COMMA. SPACE OR RETURN.ENDS NUMBER BEING 'ASKED' 

ALT MODE . IN RESPONSE TO ' ASK X' LEAVES OLD VALUE OF X 

CTRL/G.CHANGES SEARCH CHARACTER IN 'MODIFY' 

CTRL/L ... SKIPS TO NEXT OCCURRENCE OF SEARCH CHARACTER 

LINE FEED.RETAINS REST OF LINE IN 'MODIFY' 

return...KILLS REST OF LIKE IN 'MODIFY' 

rUBOUT .DELETES PRECEDING CHARACTER IN LINE 

4 .KILLS PROGRAM LINE BEING ENTERED 

4 !_KILLS NUMBER BEING ENTERED IN RESPONSE TO 'ASK' 

CTRL/P .PS/8 FOCRL' S BREAK CHARACTER 


OEVXCE IMRMeS 

SYS: SYSTEM DEVICE <D1SK OR DECTAPE DRIVE «0> 

DSK: DISK OR DECTAPE DRIVE #8; HOWEVER. DECTAPE 

INSTALLATIONS SHOULD 'ASSIGN DTAl; DSK:'. 
'DSK:' IS THE DEVICE IF NONE IS SPECIFIED. 
DTflO: - DTA7: DECTAPE DRIVES 

LTR0: - LTA7; LINCTAPE DRIVES 

MTR0: - MTA7: MAGTAPE DRIVES 

PTR: HIGH SPEED READER 

PTP: HIGH SPEED PUNCH 

LPT: LINE PRINTER 

TTY: TERMINAL 


FSIN<A> 

FCOS<A> 

FATN<A> 

FEXP<A> 

FLOQ(A> 

FSQT<A> 

FRBS<A> 


SINE CRADIANS) 
COSINE <RRDIRNS> 
ARCTAN <RADIANS) 
EXPONENTIAL 
LOO <BASE E> 
SQUARE ROOT 
ABSOLUTE VALUE 


FITR<A) 

FSGNCR) 

FDIS<X. V) 

FADC<A) 

FRANO 

FINO 

FOUT<B> 


INTEGER PART 
SIGN PART <-l. e. ♦!) 
34D SCOPE DISPLAY 
ANALOG TO digital 
PSEUDO-RANDOM NUMBER 
CHARACTER INPUT 
CHARACTER OUTPUT 


OZSRL.RV* -ft ^OVSXICK p-LJMCXXONS 
FOR THE TEKTRONIX T-4002 GRAPHIC COMPUTER TERMINAL 


F*OZ:S<I^ Xj- V>-Oisfa-l-nv* 

COORDINATES: 0 <- X < 1024 0 <- V < 1024 

j !•-! PLOT A POINT AT <X.V) 

I Im 0 draw a dark VECTOR TO <X. V) 

I !-♦! IF IN GRAPHICS MODE. DRAM A BRIGHT VECTOR TO 

I <X. V>; OTHERWISE ENTER GRAPHICS MODE AND DRAW 

A DARK VECTOR TO <X/V). 


F*aOV<X>-JOVSXICK 

FJOV<I) SETS VfflllRBLES XJ AND VJ EQUAL TO THE X AND V 
LOCATIONAL ADDRESSES IN THE INTERACTIVE GRAPHICS UNIT. 

I—1 SETS XJ AND VJ EQUAL TO LOCATIONAL RDDRESSES. 
I« 0 TURNS ON JOYSTICK. WAITS FOR KEVBCflRO 
INPUT BEFORE READING CURSOR COORDINATES. 
ASSUMES JOYSTICK PREVIOUSLY TURNED CN BY 
A F0UT<17)j READS CURSOR IMMEDIATELV. 


1MF»UX ff=>*ROQRlF»M XRRE : 

1> TYPE 'OPEN input PTR;' <WAIT FOR ON TERMINAL) 

2) HIT SPACE BAR WHEN READY TO READ TAPE 

3) WAIT FOR OUTPUT OF '?' ON TERMINAL; HIT 'CTRL/P' 

TO INPUT PROGRAMS FROM THE TERMINAL'S LOW SPEED READER; 

1) TYPE 'OPEN INPUT TTV:' <TURNS ECHO OFF) 

2) READ IN TAPE 

3) type 'OPEN INPUT TTV;. ECHO' CTURNS ECHO ON) 


XIMRUX ORTR RROM REROER : 

10. 60 OPEN INPUT PTR: 

<WA1T FOR '-' ON TERMINAL; HIT SPACE BAR) 

10. 69 FOR X-1. 10; ASK ACX) 

10. 70 OPEN INPUT TTV:. ECHO; COMMENT RESTORES TERMINAL 


OOXRUX RROQRRM XRRE: 

1) TYPE 'OPEN INPUT TTV:; OPEN OUTPUT PTP:; WRITE ALL' 
<WAIT FOR PUNCH TO STOP) 

2) TYPE 'OUTPUT CLOSE; OPEN INPUT TTV:. ECHO' 


OUXRUX ORTR XO RUMCM; 

10. 80 OPEN OUTPUT PTP: 

10. 85 FOR X«l. 10; TYPE A<X) 

10. 90 OUTPUT CLOSE 


l_ISX RROQRRM OIM 1_ X ME RRXMXER 


RROxecxeo vrrir©i_es 


ORRF^MXCS ROUX<> COOES 


1) TYPE 'OPEN INPUT TTV:; OPEN OUTPUT LPT:; WRITE ALL' 

2) 'OUTPUT CLOSE; OPEN INPUT TTV;. ECHO' 


AND '9' CANNOT BE 'TYPED'. 'ASKED' OR 'ERASED' 
BUT ARE OTHERWISE NORMAL VARIABLES. IS THE SYSTEM 

STATUS VARIABLE AND IS 'SET' TO THE PRODUCT OF CODES 
REPRESENTING FEATURES CHOSEN IN THE INITIAL DIALOGUE. 


FEATURE CODE 


'0' MO OPTIONAL FEATURES. 1 

'1' FSIN AND FCOS FUNCTIONS. 2 

'2' FSIN. FCOS. FLOG. FEXP AND FATN. 6 

'3' EXTENDED PRECISION (10 DIGITS). 9 

'4' FILE COMMANDS. ... ? 

'5' LEADING SPACE IN 'TYPE' . 11 

'6' '■' AUTOMATICALLY PRINTED BY 'TYPE' . 13 

'7' AUTOMATICALLY PRINTED BY 'ASK' .. 17 

'8' '4' IN POWERS-OF-TEH NOTATION. -1 

'9' FEATURES 2.3.4. 210 

' YES' STANDARD FEATURES 2. 3. 4. 5. 2310 


1 . . HOME 

17 .. TURNS ON JOYSTICK FOR FJOV(l) APPLICATION 
24 . . ERASE SCREEN (REQUIRES . 9 SECOND DELAY) 

30 . . ENTER INCREMENTAL PLOT MODE 

31 . . LEAVE GRAPHICS MODE 


FCUTO CODES FOR INCREMENTAL PLOT MODE: 


DIRECTION 

N 

NE 

E 

SE 

S 

SU 

H 

NW 

BRIGHT POINT 

32 

33 

34 

39 

36 

37 

38 

39 

DARK POINT 

40 

41 

42 

43 

44 

49 

46 

47 


P-ROQRRM : SKEXCM" 

FOLLOWS JOYSTICK ON DISPLAY 

01.10 SET 1*0; FOR K«0.. 2. F0UT(24); C ERASE AND PAUSE 
01.20 SET DUMMV»FJOV<0>;C WAITS FOR A KEY TO BE HIT 
01. 30 SET DUMIiV-FDlS<0.XHOLD.VHOLD)^FDIS<I.XJ. VJ) 
01.40 SET XKOLD«XJ;SET VHOLD^VJ; SET X*1;QOTO 1.2 


CMRRRCXERS FAMO X I.ES: ; 

GROUP 1 SETS UP THE 'WORDS' FILE. GROUP 2 SCANS IT, 
ECHOING CNLV WORDS STARTING WITH THE SEARCH LETTER. 

01.10 OPEN OUTPUT DTA2: WORDS; OPEN OUTPUT TTV:; ERASE 
01.20 TYPE ! “ENTER WORDS; FOLLOW EACH WITH A SPACE:"* 
01.30 TYPE -(ENTER A SPACE BY ITSELF TO CLOSE FILE)"'! 
01.40 TYPE :9-? -;0PEN RESTORE OUTPUT. ECHO 
01.90 IF <-FABS<FIN<)-16e)>l. 5;0PEN OUTPUT TTV: 

01.60 TYPE '-MORE? "; OPEN RESTORE OUTPUT.ECHO 

01. 70 IF <-FABS<FIN< >-160))1. 9; OUTPUT CLOSE; GOTO 2.7 

02.10 TYPE '-ENTER SEARCH LETTER; "; SET L-FXN<);T ••• 
02-20 TYPE -WORDS STARTING WITH S D«FOUT<L>; T ";"!:5 
02.30 OPEN INPUT DTA2: WORDS; SET S"160; SET P«2. 6 
02. 40 SET C-FINO; IF <FRBS<C-S>). 2. 7; 1 <“Ff®S<L“C»2. 6 
02.50 OPEN RESTORE INPUT. ECHO; T !:5;SET DUHMV«FOUT<C) 
02.60 IF (-FABS<FIN(>-S>>P;OPEN RESTORE INPUT;Q 2.4 
02.70 OPEN INPUT TTV:. ECHO; TYPE !!-DONE. -!!;QUIT 





































